Imports TeamUp.GarantiaTransacional
Imports TeamUp.dado

Public Class NeFuncionario
    Inherits Model

    Public Sub New(ByVal objGarantiaTransacional As GTransacional)
        GarantiaTransacional = objGarantiaTransacional
    End Sub

    Public Sub cadastarFuncionario(Optional ByVal strNome As String = "")
        Dim objDependente As NeDependente
        Dim objDaFuncionario As DaFuncionario

        GarantiaTransacional.iniciarTransacao("neFuncionario.cadastarFuncionario".ToUpper)
        Try

            objDaFuncionario = New DaFuncionario(GarantiaTransacional)

            objDaFuncionario.cadastrarFuncionario(strNome, "5")

            objDaFuncionario = Nothing

            objDependente = New NeDependente(GarantiaTransacional)

            objDependente.cadastarDependente(strNome)

            objDependente = Nothing

            GarantiaTransacional.commit("neFuncionario.cadastarFuncionario".ToUpper)

        Catch ex As Exception
            GarantiaTransacional.rollBack("neFuncionario.cadastarFuncionario".ToUpper)
            Throw ex
        End Try
    End Sub
End Class
